home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 3 / QRZ Ham Radio Callsign Database - Volume 3.iso / world / mac / contest / dxmapsea.hqx / DX Map 1.1.1 / CallToNum.p next >
Text File  |  1992-09-05  |  30KB  |  1,277 lines
  1. unit CallToNum;
  2. interface
  3.     uses
  4.         XCmdIntf, XCmdUtils;
  5.  
  6.     procedure main (paramPtr: XCmdPtr);
  7. implementation
  8.  
  9.     procedure main;
  10.         const
  11.             space = ' ';
  12.         var
  13.             call, country: string;
  14.             str: Str255;
  15.             i: integer;
  16.     begin
  17.         ZeroToPas(paramPtr, paramPtr^.params[1]^, str);
  18.         call := str;
  19. { pad out the call }
  20.         while (length(call) < 5) do
  21.             call := concat(call, space); { pad out the call }
  22. { upcase the call }
  23.         for i := 1 to length(call) do
  24.             if (integer(call[i]) >= 97) and (integer(call[i]) <= 122) then
  25.                 call[i] := char(integer(call[i]) - 32);
  26.  
  27.         case call[1] of
  28.             'A': 
  29.                 case call[2] of
  30.                     '2': 
  31.                         country := '1,1'; {Botswana}
  32.                     '3': 
  33.                         country := '1,2'; {Tonga}
  34.                     '4': 
  35.                         country := '1,3';{Oman}
  36.                     '5': 
  37.                         country := '1,4'; {Bhutan}
  38.                     '6': 
  39.                         country := '1,5'; {United Arab Emirates}
  40.                     '7': 
  41.                         country := '1,6';  {Qatar }
  42.                     '8': 
  43.                         country := '1,40';  {Liberia}
  44.                     'M'..'O': 
  45.                         case call[3] of
  46.                             '6': 
  47.                                 country := '1,36';  {Balearic Is}
  48.                             '8': 
  49.                                 country := '1,37';  {Canary Is}
  50.                             '9': 
  51.                                 country := '1,38';  {Ceuta & Melilla}
  52.                             otherwise
  53.                                 country := '1,35';  {Spain}
  54.                         end;
  55.                     'P'..'S': 
  56.                         country := '1,8';  {Pakistan}
  57.                     'T'..'W': 
  58.                         country := '3,223,224,225';{India,Andaman & Nicobar Is,Laccadive Is}
  59.                     'X': 
  60.                         case call[3] of
  61.                             '9': 
  62.                                 country := '6,203,204,205,206,207,11'; {Norfolk Is,Christmas Is,Cocos-Keeling Is,Mellish Reef,Willis Is,Nauru}
  63.                             '0': 
  64.                                 country := '2,208,209';  {Heard Is,Macquarie Is}
  65.                             otherwise
  66.                                 country := '1,201';{Australia}
  67.                         end;
  68.                     'Y', 'Z': 
  69.                         country := '1,121';  {Argentina}
  70.                     'H': 
  71.                         case call[3] of
  72.                             '1': 
  73.                                 country := '1,104';  {Baker & Howland Is}
  74.                             '2': 
  75.                                 country := '1,105';  {Guam}
  76.                             '3': 
  77.                                 country := '1,106';  {Johnston Is}
  78.                             '4': 
  79.                                 country := '1,107';  {Midway Is}
  80.                             '5': 
  81.                                 case call[4] of
  82.                                     'K': 
  83.                                         country := '1,109';  {Kingman Reef}
  84.                                     otherwise
  85.                                         country := '1,108';  {Palmyra; Jarvis Is}
  86.                                 end; { 4 }
  87.                             '6': 
  88.                                 country := '1,110';  {Hawaii}
  89.                             '7': 
  90.                                 country := '1,111';  {Kure Is}
  91.                             '8': 
  92.                                 country := '1,112';  {Am Samoa}
  93.                             '9': 
  94.                                 country := '1,113';  {Wake Is}
  95.                             '0': 
  96.                                 country := '1,114';  {Mariana Is}
  97.                             otherwise
  98.                                 country := '0,Unknown AH call';
  99.                         end; { call[3] }
  100.                     'L': 
  101.                         case call[3] of
  102.                             '7': 
  103.                                 country := '1,115';  {Alaska}
  104.                             otherwise
  105.                                 country := '0,Unknown AL call';
  106.                         end; { call[3] }
  107.                     'A'..'G', 'I'..'K': 
  108.                         country := '1,101';  {N. America}
  109.                     otherwise
  110.                         country := '0,Unknown A call'
  111.                 end; { a }
  112.  
  113.             'B': 
  114.                 case call[2] of
  115.                     'V': 
  116.                         country := '1,9'; {Taiwan}
  117.                     'Y', 'T': 
  118.                         country := '1,10';{China}
  119.                     otherwise
  120.                         country := '0,Unknown B call';
  121.                 end; { b }
  122.  
  123.             'C': 
  124.                 case call[2] of
  125.                     '2': 
  126.                         country := '1,11';{Nauru}
  127.                     '3': 
  128.                         country := '1,12';{Andorra}
  129.                     '5': 
  130.                         country := '1,13';{Gambia}
  131.                     '6': 
  132.                         country := '1,14';{Bahamas}
  133.                     '8', '9': 
  134.                         country := '1,15';{Mozambique}
  135.                     'A'..'D': 
  136.                         country := '1,16';{Chile}
  137.  
  138.                     'E': 
  139.                         case call[3] of
  140.                             '9': 
  141.                                 country := '2,17,218';{ant, so shet}
  142.                             '0': 
  143.                                 country := '3,18,19,20';{Easter Is ,San Felix ,Juan Fernandez}
  144.                             otherwise
  145.                                 country := '1,16';{Chile}
  146.                         end;
  147.                     'F'..'K': 
  148.                         country := '1,200';{canada}
  149.                     'L', 'M', 'O': 
  150.                         country := '1,22';{cuba}
  151.  
  152.                     'N': 
  153.                         country := '1,21';{morocco}
  154.                     'P': 
  155.                         country := '1,23';{bolivia}
  156.                     'Q'..'T': 
  157.                         case call[3] of
  158.                             '2': 
  159.                                 country := '1,26';{azores}
  160.                             '3': 
  161.                                 country := '1,25';{madiera}
  162.                             otherwise
  163.                                 country := '1,24';{portugal}
  164.                         end;
  165.                     'U': 
  166.                         country := '1,26';{azores}
  167.                     'V'..'X': 
  168.                         country := '1,27';{uruguay}
  169.                     'Y': 
  170.                         case call[3] of
  171.                             '0': 
  172.                                 country := '2,28,29';{St Paul Is ,Sable Is}
  173.                             otherwise
  174.                                 country := '1,200';{Canada }
  175.                         end;
  176.                     'Z': 
  177.                         country := '1,200';{Canada }
  178.                     otherwise
  179.                         country := '0,Unknown C call ';
  180.                 end; { c }
  181.             'D': 
  182.                 case call[2] of
  183.                     '2', '3': 
  184.                         country := '1,30';{angola}
  185.                     '4': 
  186.                         country := '1,31';{cape verde}
  187.                     '6': 
  188.                         country := '1,32';{comoros}
  189.                     'A'..'L': 
  190.                         country := '1,33';{FR Germany}
  191.                     'U'..'Z': 
  192.                         country := '1,34';{philip}
  193.                     otherwise
  194.                         country := '0,Unknown D call';
  195.                 end; { d }
  196.             'E': 
  197.                 case call[2] of
  198.                     'I', 'J': 
  199.                         country := '1,39';{ireland}
  200.                     'L': 
  201.                         country := '1,40';{liberia}
  202.                     'P', 'Q': 
  203.                         country := '1,41';{iran}
  204.                     'T': 
  205.                         country := '1,43';{ethiopia}
  206.                     'A'..'H': 
  207.                         case call[3] of
  208.                             '6': 
  209.                                 country := '1,36';{Balearic Is }
  210.                             '8': 
  211.                                 country := '1,37';{Canary Is }
  212.                             '9': 
  213.                                 country := '1,38';{Ceuta & Melilla}
  214.                             otherwise
  215.                                 country := '1,36';{spain}
  216.                         end;
  217.                     otherwise
  218.                         country := '0,Unknown E call ';
  219.                 end; { e }
  220.             'F': 
  221.                 case call[2] of
  222.                     'G': 
  223.                         country := '1,45';{Guadeloupe}
  224.                     'S': 
  225.                         country := '1,56';{st martin}
  226.                     'H': 
  227.                         country := '1,46';{mayotte}
  228.                     'K': 
  229.                         country := '1,47';{New Caledonia}
  230.                     'M': 
  231.                         country := '1,48';{martinique}
  232.                     'O': 
  233.                         country := '2,49,50';{Clipperton Is ,French Polynesia}
  234.                     'P': 
  235.                         country := '1,51';{St Pierre & Miquelon}
  236.                     'W': 
  237.                         country := '1,60';{Wallis & Futuna}
  238.                     'Y': 
  239.                         country := '1,61';{French Guiana}
  240.                     'R': 
  241.                         country := '4,52,53,54,55';{Glorioso Is,Juan de Nova; Europa,Reunion,Tromelin}
  242.                     'T': 
  243.                         case call[3] of
  244.                             '8': 
  245.                                 case call[4] of
  246.                                     'W': 
  247.                                         country := '1,57';{Crozet}
  248.                                     'X': 
  249.                                         country := '1,58';{Kerguelen Is}
  250.                                     'Z': 
  251.                                         country := '1,59';{Amsterdam & StPaul Is}
  252.                                     otherwise
  253.                                         country := '0,Unknown FT8 call';
  254.                                 end;
  255.                             otherwise
  256.                                 country := '0,Unknown FT call ';
  257.                         end;
  258.                     otherwise
  259.                         country := '1,44';{france}
  260.                 end; { f }
  261.  
  262.             'G': 
  263.                 case call[2] of
  264.                     'D': 
  265.                         country := '1,63';{Isle of Man}
  266.                     'I': 
  267.                         country := '1,64';{No Ireland}
  268.                     'J': 
  269.                         country := '1,65';{Jersey}
  270.                     'M': 
  271.                         country := '1,66';{Scotland}
  272.                     'U': 
  273.                         country := '1,67';{Guernsey}
  274.                     'W': 
  275.                         country := '1,68';{Wales}
  276.                     otherwise
  277.                         country := '1,62';{England}
  278.                 end; { g }
  279.  
  280.             'H': 
  281.                 case call[2] of
  282.                     '3': 
  283.                         country := '1,81';{Panama}
  284.                     '4': 
  285.                         country := '1,69';{Solomon Is}
  286.                     '5': 
  287.                         country := '1,263';{So Africa}
  288.                     '7', 'T': 
  289.                         country := '1,240';{Nicaragua}
  290.                     'A', 'G': 
  291.                         country := '1,70';{Hungary}
  292.                     'B', 'E': 
  293.                         case call[3] of
  294.                             '0': 
  295.                                 country := '1,72';{Liechtenstein}
  296.                             otherwise
  297.                                 country := '1,71';{Switzerland}
  298.                         end;
  299.                     'C', 'D': 
  300.                         case call[3] of
  301.                             '8': 
  302.                                 country := '1,74';{Galapagos Is}
  303.                             otherwise
  304.                                 country := '1,73';{Ecuador}
  305.                         end;
  306.                     'F': 
  307.                         case call[3] of
  308.                             '0': 
  309.                                 country := '1,218';{,So Shetland Is}
  310.                             otherwise
  311.                                 country := '0,Unknown HF call';
  312.                         end;
  313.                     'H': 
  314.                         country := '1,75';{Haiti}
  315.                     'I': 
  316.                         country := '1,76';{Dominican Rep}
  317.                     'J': 
  318.                         country := '1,77';{Colombia}
  319.                     'K': 
  320.                         case call[3] of
  321.                             '0': 
  322.                                 country := '2,78,79';{Malpelo Is,San Andres & Providencia,}
  323.                             otherwise
  324.                                 country := '1,77';{Colombia}
  325.                         end;
  326.                     'L': 
  327.                         country := '1,80';{Korea}
  328.                     'O', 'P': 
  329.                         country := '1,81';{Panama}
  330.                     'Q', 'R': 
  331.                         country := '1,82';{Honduras}
  332.                     'S': 
  333.                         country := '1,83';{Thailand}
  334.                     'U': 
  335.                         country := '1,242';{El Salvador}
  336.                     'V': 
  337.                         country := '1,84';{Vatican}
  338.                     'W'..'Y': 
  339.                         country := '1,44';{France}
  340.                     'Z': 
  341.                         country := '1,85';{Saudi Arabia}
  342.                     otherwise
  343.                         country := '0,Unknown H call';
  344.                 end; { h }
  345.  
  346.             'I': 
  347.                 case call[2] of
  348.                     'M', 'S': 
  349.                         case call[3] of
  350.                             '0': 
  351.                                 country := '1,87';{Sardinia}
  352.                             otherwise
  353.                                 country := '1,86';{Italy}
  354.                         end;
  355.                     otherwise
  356.                         country := '1,86';{Italy}
  357.                 end; { i }
  358.  
  359.             'J': 
  360.                 case call[2] of
  361.                     '2': 
  362.                         country := '1,88';{Djibouti}
  363.                     '3': 
  364.                         country := '1,89';{Grenada}
  365.                     '4': 
  366.                         country := 'SV,Greece,Europe,28,20,2,38,24';
  367.                     '5': 
  368.                         country := '1,90';{Guinea-Bissau}
  369.                     '6': 
  370.                         country := '1,91';{St Lucia}
  371.                     '7': 
  372.                         country := '1,92';{Dominica}
  373.                     '8': 
  374.                         country := '1,93';{St Vincent}
  375.                     'T'..'V': 
  376.                         country := '1,97';{Mongolia}
  377.                     'W': 
  378.                         country := '1,98';{Svalbard}
  379.                     'X': 
  380.                         country := '1,99';{Jan Mayen}
  381.                     'Y': 
  382.                         country := '1,100';{Jordan}
  383.                     'D': 
  384.                         case call[3] of
  385.                             '1': 
  386.                                 country := '2,95,96';{Minami Torishima,Ogasawara}
  387.                             otherwise
  388.                                 country := '1,94';{Japan}
  389.                         end;
  390.                     'A'..'C', 'E'..'S': 
  391.                         country := '1,94';{Japan}
  392.                     otherwise
  393.                         country := '0,Unknown J call ';
  394.                 end; { j }
  395.  
  396.             'N', 'W': 
  397.                 case call[2] of
  398.                     'H': 
  399.                         case call[3] of
  400.                             '1': 
  401.                                 country := '1,104';  {Baker & Howland Is}
  402.                             '2': 
  403.                                 country := '1,105';  {Guam}
  404.                             '3': 
  405.                                 country := '1,106';  {Johnston Is}
  406.                             '4': 
  407.                                 country := '1,107';  {Midway Is}
  408.                             '5': 
  409.                                 case call[4] of
  410.                                     'K': 
  411.                                         country := '1,109';  {Kingman Reef}
  412.                                     otherwise
  413.                                         country := '1,108';  {Palmyra; Jarvis Is}
  414.                                 end; { 4 }
  415.                             '6': 
  416.                                 country := '1,110';  {Hawaii}
  417.                             '7': 
  418.                                 country := '1,111';  {Kure Is}
  419.                             '8': 
  420.                                 country := '1,112';  {Am Samoa}
  421.                             '9': 
  422.                                 country := '1,113';  {Wake Is}
  423.                             '0': 
  424.                                 country := '1,114';  {Mariana Is}
  425.                             otherwise
  426.                                 country := '0,Unknown NH/WH call';
  427.                         end; { call[3] }
  428.                     'L': 
  429.                         case call[3] of
  430.                             '7': 
  431.                                 country := '1,115';  {Alaska}
  432.                             otherwise
  433.                                 country := '0,Unknown NL/WH call';
  434.                         end; { call[3] }
  435.                     'P': 
  436.                         case call[3] of
  437.                             '1': 
  438.                                 country := '1,116';{Navassa Is}
  439.                             '2': 
  440.                                 country := '1,117';{Virgin Is}
  441.                             '4': 
  442.                                 country := '1,118';{Puerto Rico}
  443.                             '5': 
  444.                                 country := '1,119';{Desecheo Is}
  445.                             otherwise
  446.                                 country := '0,Unknown NP/WP call';
  447.                         end;
  448.                     otherwise
  449.                         country := '1,101';{United States}
  450.                 end; { n/w }
  451.  
  452.  
  453.             'K': 
  454.                 case call[2] of
  455.                     'C': 
  456.                         case call[3] of
  457. {'4': }
  458. {country := 'Navassa I.';}
  459.                             '6': 
  460.                                 country := '2,102,197';{Micronesia,Belau,}
  461.                             otherwise
  462.                                 country := '1,101';{United States}
  463.                         end;
  464.                     'G': 
  465.                         case call[3] of
  466.                             '4': 
  467.                                 country := '1,103';{Guantanamo Bay}
  468.                             otherwise
  469.                                 country := '0,Unknown KG call';
  470.                         end;
  471.                     'H': 
  472.                         case call[3] of
  473.                             '1': 
  474.                                 country := '1,104';  {Baker & Howland Is}
  475.                             '2': 
  476.                                 country := '1,105';  {Guam}
  477.                             '3': 
  478.                                 country := '1,106';  {Johnston Is}
  479.                             '4': 
  480.                                 country := '1,107';  {Midway Is}
  481.                             '5': 
  482.                                 case call[4] of
  483.                                     'K': 
  484.                                         country := '1,109';  {Kingman Reef}
  485.                                     otherwise
  486.                                         country := '1,108';  {Palmyra; Jarvis Is}
  487.                                 end; { 4 }
  488.                             '6': 
  489.                                 country := '1,110';  {Hawaii}
  490.                             '7': 
  491.                                 country := '1,111';  {Kure Is}
  492.                             '8': 
  493.                                 country := '1,112';  {Am Samoa}
  494.                             '9': 
  495.                                 country := '1,113';  {Wake Is}
  496.                             '0': 
  497.                                 country := '1,114';  {Mariana Is}
  498.                             otherwise
  499.                                 country := '0,Unknown KH call';
  500.                         end; { call[3] }
  501.                     'L': 
  502.                         case call[3] of
  503.                             '7': 
  504.                                 country := '1,115';  {Alaska}
  505.                             otherwise
  506.                                 country := '0,Unknown KL call';
  507.                         end; { call[3] }
  508.                     'P': 
  509.                         case call[3] of
  510.                             '1': 
  511.                                 country := '1,116';{Navassa Is}
  512.                             '2': 
  513.                                 country := '1,117';{Virgin Is}
  514.                             '4': 
  515.                                 country := '1,118';{Puerto Rico}
  516.                             '5': 
  517.                                 country := '1,119';{Desecheo Is}
  518.                             otherwise
  519.                                 country := '0,Unknown KP call';
  520.                         end;
  521.                     'X': 
  522.                         case call[3] of
  523.                             '6': 
  524.                                 country := '1,198';{Marshall Is}
  525.                             otherwise
  526.                                 country := '1,101';{United States}
  527.                         end;
  528.                     otherwise
  529.                         country := '1,101';{United States}
  530.                 end; { k }
  531.  
  532.             'L': 
  533.                 case call[2] of
  534.                     'X': 
  535.                         country := '1,122';{Luxembourg}
  536.                     'Y': 
  537.                         country := '1,123';{Lithuania}
  538.                     'Z': 
  539.                         country := '1,124';{Bulgaria}
  540.                     'A'..'N': 
  541.                         country := '1,120';{Norway}
  542.                     'U': 
  543.                         country := '5,121,215,216,217,218';{Argentina,So Georgia Is,So Orkney Is,So Sandwich Is,So Shetland Is}
  544.                     'O'..'T', 'V', 'W', '2'..'9': 
  545.                         country := '1,121';{Argentina}
  546.                     otherwise
  547.                         country := '0,Unknown L call';
  548.                 end; { l }
  549.  
  550.             'O': 
  551.                 case call[2] of
  552.                     'A'..'C': 
  553.                         country := '1,125';{Peru}
  554.                     'D': 
  555.                         country := '1,126';{Lebanon}
  556.                     'E': 
  557.                         country := '1,127';{Austria}
  558.                     'F', 'G', 'I': 
  559.                         country := '1,128';{Finland}
  560.                     'H': 
  561.                         case call[3] of
  562.                             '0': 
  563.                                 country := '1,129';{Aland Is}
  564.                             otherwise
  565.                                 country := '1,128';{Finland}
  566.                         end;
  567.                     'J': 
  568.                         case call[3] of
  569.                             '0': 
  570.                                 country := '1,130';{Market Reef}
  571.                             otherwise
  572.                                 country := '0,Unknown OJ call';
  573.                         end;
  574.                     'K'..'M': 
  575.                         country := '1,131';{Czechoslovakia}
  576.                     'X': 
  577.                         country := '1,133';{Greenland}
  578.                     'Y': 
  579.                         country := '1,134';{Faroe Is}
  580.                     'Z': 
  581.                         country := '1,135';{Denmark}
  582.                     'N'..'T': 
  583.                         country := '1,132';{Belgium}
  584.                     otherwise
  585.                         country := '0,Unknown O call';
  586.                 end; { o }
  587.  
  588.             'P': 
  589.                 case call[2] of
  590.                     '2': 
  591.                         country := '1,136';{Papua New Guinea}
  592.                     'J': 
  593.                         case call[3] of
  594.                             '2'..'4': 
  595.                                 country := '1,139';{Neth Antilles}
  596.                             '5'..'8': 
  597.                                 country := '1,140';{St Maarten; Saba; St Eus}
  598.                             otherwise
  599.                                 country := '0,Unknown PJ call';
  600.                         end;
  601.                     'Z': 
  602.                         country := '1,145';{Surinam}
  603.                     'A'..'I': 
  604.                         country := '1,138';{Netherlands}
  605.                     'P'..'Y': 
  606.                         case call[3] of
  607.                             '0': 
  608.                                 country := '3,142,143,144';{Fernando de Noronha,St Peter & St Paul Rocks,Trindade & Martin Vaz Is,}
  609.                             otherwise
  610.                                 country := '1,141';{Brazil}
  611.                         end;
  612.                     otherwise
  613.                         country := '0,Unknown P call ';
  614.                 end; { p }
  615.  
  616.             'S': 
  617.                 case call[2] of
  618.                     '2': 
  619.                         country := '1,146';{Bangladesh}
  620.                     '4', '8': 
  621.                         country := '1,263';{So Africa}
  622.                     '7': 
  623.                         country := '1,147';{Seychelles}
  624.                     '9': 
  625.                         country := '1,148';{Sao Tome & Principe}
  626.                     'N'..'R': 
  627.                         country := '1,151';{Poland}
  628.                     'T': 
  629.                         case call[3] of
  630.                             '0': 
  631.                                 country := '1,153';{Southern Sudan}
  632.                             otherwise
  633.                                 country := '1,152';{Sudan}
  634.                         end;
  635.                     'U': 
  636.                         country := '1,154';{Egypt}
  637.                     'V': 
  638.                         case call[3] of
  639.                             '5': 
  640.                                 country := '1,156';{Dodecanese}
  641.                             '9': 
  642.                                 country := '1,157';{Crete}
  643.                             otherwise
  644.                                 country := '2,155,158';{Greece,Mt Athos}
  645.                         end;
  646.                     'W'..'Z': 
  647.                         country := '1,155';{Greece}
  648.                     'A'..'M': 
  649.                         country := '1,150';{Sweden}
  650.                     otherwise
  651.                         country := '0,Unknown S call ';
  652.                 end; { s }
  653.  
  654.             'T': 
  655.                 case call[2] of
  656.                     '2': 
  657.                         country := '1,159';{Tuvalu}
  658.                     '3': 
  659.                         case call[2] of
  660.                             '0': 
  661.                                 country := '1,163';{West Kiribati}
  662.                             '1': 
  663.                                 country := '1,160';{Central Kiribati}
  664.                             '2': 
  665.                                 country := '1,161';{East Kiribati}
  666.                             otherwise
  667.                                 country := '0,Unknown T3 call';
  668.                         end;
  669.                     '4': 
  670.                         country := '2,22,263';{Cuba,So Africa}
  671.                     '5': 
  672.                         country := '1,164';{Somali}
  673.                     '7': 
  674.                         country := '1,165';{San Marino}
  675.                     'A'..'C': 
  676.                         country := '1,166';{Turkey}
  677.                     'F': 
  678.                         country := '1,167';{Iceland}
  679.                     'G', 'D': 
  680.                         country := '1,168';{Guatemala}
  681.                     'E': 
  682.                         country := '1,169';{Costa Rica}
  683.                     'H', 'M', 'O'..'Q', 'V'..'X': 
  684.                         country := '1,44';{France}
  685.                     'I': 
  686.                         case call[3] of
  687.                             '9': 
  688.                                 country := '1,170';{Cocos Is}
  689.                             otherwise
  690.                                 country := '1,169';{Costa Rica}
  691.                         end;
  692.                     'J': 
  693.                         country := '1,171';{Cameroon}
  694.                     'K': 
  695.                         country := '1,172';{Corsica}
  696.                     'L': 
  697.                         country := '1,173';{Central African Rep}
  698.                     'N': 
  699.                         country := '1,174';{Congo}
  700.                     'R': 
  701.                         country := '1,175';{Gabon}
  702.                     'T': 
  703.                         country := '1,176';{Chad}
  704.                     'U': 
  705.                         country := '1,177';{Ivory Coast}
  706.                     'Y': 
  707.                         country := '1,178';{Benin}
  708.                     'Z': 
  709.                         country := '1,179';{Mali}
  710.                     otherwise
  711.                         country := '0,Unknown T call ';
  712.                 end; { t }
  713.  
  714.             'U', 'R': 
  715.                 case call[2] of
  716.                     'A', 'N', 'V', 'W', 'Z': 
  717.                         case call[3] of
  718.                             '1': 
  719.                                 country := '2,180,285';{Russia (European),Franz Josef Land}
  720.                             '2': 
  721.                                 country := '1,181';{Kaliningrad}
  722.                             '3', '4', '6': 
  723.                                 country := '1,180';{Russia (European)}
  724.                             '8', '9', '0': 
  725.                                 country := '1,182';{Russia (Asiatic)}
  726.                             otherwise
  727.                                 country := '0,Unknown UA call';
  728.                         end;
  729.                     'B', 'T', 'Y': 
  730.                         country := '1,183';{Ukraine}
  731.                     'C': 
  732.                         country := '1,184';{Byelorussia}
  733.                     'D': 
  734.                         country := '1,185';{Azerbaijan}
  735.                     'F': 
  736.                         country := '1,186';{Georgia}
  737.                     'G': 
  738.                         country := '1,187';{Armenia}
  739.                     'H': 
  740.                         country := '1,188';{Turkmenistan}
  741.                     'I': 
  742.                         country := '1,189';{Uzbekistan}
  743.                     'J': 
  744.                         country := '1,190';{Tadzhikistan}
  745.                     'L': 
  746.                         country := '1,191';{Kazakhstan}
  747.                     'M': 
  748.                         country := '1,192';{Kirghizia}
  749.                     'O': 
  750.                         country := '1,193';{Moldavia}
  751.                     'P': 
  752.                         country := '1,123';{Lithuania}
  753.                     'Q': 
  754.                         country := '1,239';{Latvia}
  755.                     'R': 
  756.                         country := '1,42';{Estonia}
  757.                     otherwise
  758.                         country := '0,Unknown U call ';
  759.                 end; { u }
  760.  
  761.             'V': 
  762.                 case call[2] of
  763.                     '2': 
  764.                         country := '1,194';{Antigua; Barbuda}
  765.                     '3': 
  766.                         country := '1,195';{Belize}
  767.                     '4': 
  768.                         country := '1,196';{St Kitts; Nevis}
  769.                     '8': 
  770.                         country := '1,199';{Brunei}
  771.                     '9': 
  772.                         country := '1,263';{So Africa}
  773.                     'A'..'G', 'O': 
  774.                         country := '1,200';{Canada}
  775.                     'H'..'N': 
  776.                         case call[3] of
  777.                             '9': 
  778.                                 country := '6,11,203,204,205,206,207';{Norfolk Is,Christmas Is,Cocos-Keeling Is,Mellish Reef,Willis Is,Nauru}
  779.                             '0': 
  780.                                 country := '2,208,209';{Heard Is,Macquarie Is}
  781.                             otherwise
  782.                                 country := '1,201';{Australia}
  783.                         end;
  784.                     'P': 
  785.                         case call[3] of
  786.                             '2': 
  787.                                 case call[4] of
  788.                                     'E': 
  789.                                         country := '1,210';{Anguilla}
  790.                                     'M': 
  791.                                         country := '1,211';{Montserrat}
  792.                                     'V': 
  793.                                         country := '1,212';{Br Virgin Is}
  794.                                     otherwise
  795.                                         country := '0,Unknown VP2 call';
  796.                                 end;
  797.                             'X': 
  798.                                 country := '2,28,29';{St Paul Is,Sable Is}
  799.                             'Y': 
  800.                                 country := '2,200,28';{Canada,St Paul Is}
  801.                             '5': 
  802.                                 country := '1,213';{Turks & Caicos Is}
  803.                             '8': 
  804.                                 country := '5,214,215,216,217,218';{Falkland Is,So Georgia Is,So Orkney Is,So Sandwich Is,So Shetland Is}
  805.                             '9': 
  806.                                 country := '1,219';{Bermuda}
  807.                             otherwise
  808.                                 country := '0,Unknown VP call';
  809.                         end;
  810.                     'Q': 
  811.                         case call[3] of
  812.                             '8': 
  813.                                 country := '1,220';{Chagos}
  814.                             '9': 
  815.                                 country := '2,220,147';{Chagos,Seychelles}
  816.                             otherwise
  817.                                 country := '0,Unknown VQ call';
  818.                         end;
  819.                     'R': 
  820.                         case call[3] of
  821.                             '6': 
  822.                                 country := '1,221';{Pitcairn Is}
  823.                             otherwise
  824.                                 country := '0,Unknown VR call';
  825.                         end;
  826.                     'S': 
  827.                         case call[3] of
  828.                             '6': 
  829.                                 country := '1,222';{Hong Kong}
  830.                             '9': 
  831.                                 case call[4] of
  832.                                     'M': 
  833.                                         country := '1,309';{Maldive Is}
  834.                                     otherwise
  835.                                         country := '0,Unknown VS9 call';
  836.                                 end;
  837.                             otherwise
  838.                                 country := '0,Unknown VS call';
  839.                         end;
  840.                     'U': 
  841.                         country := '3,223,224,225';{India,Andaman & Nicobar Is,Laccadive Is}
  842.                     otherwise
  843.                         country := '0,Unknown V call ';
  844.                 end; { V }
  845.  
  846.             'X': 
  847.                 case call[2] of
  848.                     'A'..'I': 
  849.                         case call[3] of
  850.                             '4': 
  851.                                 country := '1,227';{Revilla Gigedo}
  852.                             otherwise
  853.                                 country := '1,226';{Mexico}
  854.                         end;
  855.                     'J'..'O': 
  856.                         country := '1,200';{Canada}
  857.                     'P': 
  858.                         country := '1,133';{Greenland}
  859.                     'Q'..'R': 
  860.                         case call[3] of
  861.                             '9': 
  862.                                 country := '2,17,218';{Antarctica,So Shetland Is}
  863.                             '0': 
  864.                                 country := '3,18,19,20';{Easter Is,San Felix,Juan Fernandez}
  865.                             otherwise
  866.                                 country := '1,16';{Chile}
  867.                         end;
  868.                     'T': 
  869.                         country := '1,228';{Burkina Faso}
  870.                     'U': 
  871.                         country := '1,229';{Cambodia}
  872.                     'V': 
  873.                         country := '1,280';{Vietnam}
  874.                     'W': 
  875.                         country := '1,230';{Laos}
  876.                     'X': 
  877.                         case call[3] of
  878.                             '9': 
  879.                                 country := '1,231';{Macao}
  880.                             otherwise
  881.                                 country := '0,Unknown XX call';
  882.                         end;
  883.                     'Y', 'Z': 
  884.                         country := '1,232';{Burma}
  885.                     otherwise
  886.                         country := '0,Unknown X call';
  887.                 end; { X }
  888.  
  889.             'y', 'Y': 
  890.                 case call[2] of
  891.                     '2'..'9': 
  892.                         country := '1,33';{(east) Germany}
  893.                     'A': 
  894.                         country := '1,234';{Afghanistan}
  895.                     'B'..'H': 
  896.                         country := '1,235';{Indonesia}
  897.                     'I': 
  898.                         country := '1,236';{Iraq}
  899.                     'J': 
  900.                         country := '1,237';{Vanuatu}
  901.                     'K': 
  902.                         country := '1,238';{Syria}
  903.                     'L': 
  904.                         country := '1,239';{Latvia}
  905.                     'N': 
  906.                         country := '1,240';{Nicaragua}
  907.                     'O'..'R': 
  908.                         country := '1,241';{Romania}
  909.                     'S': 
  910.                         country := '1,242';{El Salvador}
  911.                     'T', 'U', 'Z': 
  912.                         country := '1,243';{Yugoslavia}
  913.                     'V': 
  914.                         case call[3] of
  915.                             '0': 
  916.                                 country := '1,245';{Aves Is}
  917.                             otherwise
  918.                                 country := '1,244';{Venezuela}
  919.                         end;
  920.                     'W'..'Y': 
  921.                         country := '1,244';{Venezuela}
  922.                     otherwise
  923.                         country := '0,Unknown Y call';
  924.                 end; { Y }
  925.  
  926.             'Z': 
  927.                 case call[2] of
  928.                     '2': 
  929.                         country := '1,246';{Zimbabwe}
  930.                     'A': 
  931.                         country := '1,247';{Albania}
  932.                     'B': 
  933.                         case call[3] of
  934.                             '2': 
  935.                                 country := '1,248';{Gibraltar}
  936.                             otherwise
  937.                                 country := '0,Unknown ZB call';
  938.                         end; { ZB }
  939.                     'C': 
  940.                         case call[3] of
  941.                             '4': 
  942.                                 country := '1,249';{Cyprus SBA}
  943.                             otherwise
  944.                                 country := '0,Unknown ZC call';
  945.                         end; { ZC }
  946.                     'D': 
  947.                         case call[3] of
  948.                             '7': 
  949.                                 country := '1,250';{St Helena}
  950.                             '8': 
  951.                                 country := '1,251';{Ascension Is}
  952.                             '9': 
  953.                                 country := '1,252';{Tristan da Cunha & Gough Is}
  954.                             otherwise
  955.                                 country := '0,Unknown ZD call';
  956.                         end; { ZC }
  957.                     'F': 
  958.                         country := '1,253';{Cayman Is}
  959.                     'K': 
  960.                         case call[3] of
  961.                             '1': 
  962.                                 country := '2,254,255';{No Cook Is,So Cook Is}
  963.                             '2': 
  964.                                 country := '1,256';{Niue}
  965.                             '3': 
  966.                                 country := '1,257';{Tokelau Is}
  967.                             otherwise
  968.                                 country := '0,Unknown ZK call';
  969.                         end; { ZK }
  970.                     'L': 
  971.                         case call[3] of
  972.                             '7': 
  973.                                 country := '1,259';{Chatham Is}
  974.                             '8': 
  975.                                 country := '1,260';{Kermadec Is}
  976.                             '9': 
  977.                                 country := '1,261';{Auckland; Campbell Is}
  978.                             otherwise
  979.                                 country := '1,258';{New Zealand}
  980.                         end; { ZL }
  981.                     'M': 
  982.                         country := '1,258';{New Zealand}
  983.                     'P': 
  984.                         country := '1,262';{Paraguay}
  985.                     'R'..'U': 
  986.                         case call[3] of
  987.                             '2': 
  988.                                 country := '1,265';{Pr Edward & Marion Is}
  989.                             '3': 
  990.                                 country := '1,264';{Namibia}
  991.                             otherwise
  992.                                 country := '1,263';{So Africa}
  993.                         end; { ZR-ZU }
  994.                     'V'..'Z': 
  995.                         case call[3] of
  996.                             '0': 
  997.                                 country := '3,142,143,144';{Fernando de Noronha,St Peter & St Paul Rocks,Trindade & Martin Vaz Is,}
  998.                             otherwise
  999.                                 country := '1,141';{Brazil}
  1000.                         end;
  1001.                     otherwise
  1002.                         country := '0,Unknown Z call';
  1003.                 end; { Z }
  1004.  
  1005.             '1': 
  1006.                 case call[2] of
  1007.                     'A': 
  1008.                         case call[3] of
  1009.                             '0': 
  1010.                                 country := '1,267';{Sov. Mil. Order of Malta}
  1011.                             otherwise
  1012.                                 country := '0,Unknown 1A call';
  1013.                         end; { 1A }
  1014.                     'S': 
  1015.                         country := '1,268';{Spratly Is}
  1016.                     otherwise
  1017.                         country := '0,Unknown 1 call';
  1018.                 end; { 1 }
  1019.  
  1020.             '3': 
  1021.                 case call[2] of
  1022.                     'A': 
  1023.                         country := '1,269';{Monaco}
  1024.                     'B': 
  1025.                         case call[3] of
  1026.                             '6', '7': 
  1027.                                 country := '1,270';{Agalega & St Brandon}
  1028.                             '8': 
  1029.                                 country := '1,271';{Mauritius}
  1030.                             '9': 
  1031.                                 country := '1,272';{Rodriguez Is}
  1032.                             otherwise
  1033.                                 country := '0,Unknown 3B call';
  1034.                         end; { 3B }
  1035.                     'C': 
  1036.                         case call[3] of
  1037.                             '0': 
  1038.                                 country := '1,274';{Pagalu}
  1039.                             otherwise
  1040.                                 country := '1,273';{Equatorial Guinea}
  1041.                         end; { 3C }
  1042.                     'D': 
  1043.                         case call[3] of
  1044.                             '2': 
  1045.                                 country := '3,275,276,277';{Fiji Is,Conway Reef,Rotuma}
  1046.                             '6': 
  1047.                                 country := '1,278';{Swaziland}
  1048.                             otherwise
  1049.                                 country := '0,Unknown 3D call';
  1050.                         end; { 3D }
  1051.                     'G': 
  1052.                         case call[3] of
  1053.                             '9': 
  1054.                                 country := '2,17,218';{ant, so shet}
  1055.                             '0': 
  1056.                                 country := '3,18,19,20';{Easter Is ,San Felix ,Juan Fernandez}
  1057.                             otherwise
  1058.                                 country := '1,16';{Chile}
  1059.                         end;
  1060.                     'V': 
  1061.                         country := '1,279';{Tunisia}
  1062.                     'W': 
  1063.                         country := '1,280';{Vietnam}
  1064.                     'X': 
  1065.                         country := '1,281';{Guinea}
  1066.                     'Y': 
  1067.                         country := '2,282,283';{Bouvet,Peter I}
  1068.                     'Z': 
  1069.                         country := '1,151';{Poland}
  1070.                     otherwise
  1071.                         country := '0,Unknown 3 call';
  1072.                 end; { 3 }
  1073.  
  1074.             '4': 
  1075.                 case call[2] of
  1076.                     'A': 
  1077.                         case call[3] of
  1078.                             '4': 
  1079.                                 country := '1,227';{Revilla Gigedo}
  1080.                             otherwise
  1081.                                 country := '1,226';{Mexico}
  1082.                         end;
  1083.                     'D'..'I': 
  1084.                         country := '1,34';{Philippines}
  1085.                     'M': 
  1086.                         case call[3] of
  1087.                             '0': 
  1088.                                 country := '1,245';{Aves Is}
  1089.                             otherwise
  1090.                                 country := '1,246';{Venezuela}
  1091.                         end;
  1092.                     'N', 'O': 
  1093.                         country := '1,243';{Yugoslavia}
  1094.                     'P'..'S': 
  1095.                         country := '1,286';{Sri Lanka}
  1096.                     'T': 
  1097.                         country := '1,125';{Peru}
  1098.                     'U': 
  1099.                         country := '2,287,288';{ITU Geneva,UN HQ}
  1100.                     'V': 
  1101.                         country := '1,75';{Haiti}
  1102.                     'W': 
  1103.                         country := '1,304';{Yemen}
  1104.                     'X', 'Z': 
  1105.                         country := '1,290';{Israel}
  1106.                     otherwise
  1107.                         country := '0,Unknown 4 call';
  1108.                 end; { 4 }
  1109.  
  1110.             '5': 
  1111.                 case call[2] of
  1112.                     'A': 
  1113.                         country := '1,291';{Libya}
  1114.                     'B': 
  1115.                         country := '1,292';{Cyprus}
  1116.                     'H', 'I': 
  1117.                         country := '1,293';{Tanzania}
  1118.                     'J', 'K': 
  1119.                         case call[3] of
  1120.                             '0': 
  1121.                                 country := '2,78,79';{Malpelo Is,San Andres & Providencia,}
  1122.                             otherwise
  1123.                                 country := '1,77';{Colombia}
  1124.                         end;
  1125.                     'L', 'M': 
  1126.                         country := '1,40';{Liberia}
  1127.                     'N', 'O': 
  1128.                         country := '1,294';{Nigeria}
  1129.                     'R', 'S': 
  1130.                         country := '1,295';{Madagascar}
  1131.                     'T': 
  1132.                         country := '1,296';{Mauritania}
  1133.                     'U': 
  1134.                         country := '1,297';{Niger}
  1135.                     'V': 
  1136.                         country := '1,298';{Togo}
  1137.                     'W': 
  1138.                         country := '1,299';{Western Samoa}
  1139.                     'X': 
  1140.                         country := '1,300';{Uganda}
  1141.                     'Y', 'Z': 
  1142.                         country := '1,301';{Kenya}
  1143.                     otherwise
  1144.                         country := '0,Unknown 5 call';
  1145.                 end; { 5 }
  1146.  
  1147.             '6': 
  1148.                 case call[2] of
  1149.                     'C': 
  1150.                         country := '1,238';{Syria}
  1151.                     'D'..'J': 
  1152.                         case call[3] of
  1153.                             '4': 
  1154.                                 country := '1,227';{Revilla Gigedo}
  1155.                             otherwise
  1156.                                 country := '1,226';{Mexico}
  1157.                         end;
  1158.                     'O': 
  1159.                         country := '1,164';{Somali}
  1160.                     'T', 'U': 
  1161.                         case call[3] of
  1162.                             '0': 
  1163.                                 country := '1,153';{Southern Sudan}
  1164.                             otherwise
  1165.                                 country := '1,152';{Sudan}
  1166.                         end;
  1167.  
  1168.                     'V', 'W': 
  1169.                         country := '1,302';{Senegal}
  1170.                     'Y': 
  1171.                         country := '1,303';{Jamaica}
  1172.                     otherwise
  1173.                         country := '0,Unknown 6 call';
  1174.                 end; { 6 }
  1175.  
  1176.             '7': 
  1177.                 case call[2] of
  1178.                     'A'..'I': 
  1179.                         country := '1,235';{Indonesia}
  1180.                     'J'..'N': 
  1181.                         case call[3] of
  1182.                             'D': 
  1183.                                 case call[4] of
  1184.                                     '1': 
  1185.                                         country := '2,95,96';{Minami Torishima,Ogasawara}
  1186.                                     otherwise
  1187.                                         country := '1,94';{Japan}
  1188.                                 end;
  1189.                             otherwise
  1190.                                 country := '1,94';{Japan}
  1191.                         end;
  1192.                     'O': 
  1193.                         country := '1,304';{PDR Yemen}
  1194.                     'P': 
  1195.                         country := '1,305';{Lesotho}
  1196.                     'Q': 
  1197.                         country := '1,306';{Malawi}
  1198.                     'S': 
  1199.                         country := '1,150';{Sweden}
  1200.                     'T'..'Y': 
  1201.                         country := '1,307';{Algeria}
  1202.                     'Z': 
  1203.                         country := '1,85';{Saudi Arabia}
  1204.                     otherwise
  1205.                         country := '0,Unknown 7 call';
  1206.                 end; { 7 }
  1207.  
  1208.             '8': 
  1209.                 case call[2] of
  1210.                     'A'..'I': 
  1211.                         country := '1,235';{Indonesia}
  1212.                     'J': 
  1213.                         country := '1,94';{Japan}
  1214.                     'O': 
  1215.                         country := '1,1'; {Botswana}
  1216.                     'P': 
  1217.                         country := '1,308';{Barbados}
  1218.                     'Q': 
  1219.                         country := '1,309';{Maldive Is}
  1220.                     'R': 
  1221.                         country := '1,310';{Guyana}
  1222.                     'S': 
  1223.                         country := '1,150';{Sweden}
  1224.                     otherwise
  1225.                         country := '0,Unknown 8 call';
  1226.                 end; { 8 }
  1227.  
  1228.             '9': 
  1229.                 case call[2] of
  1230.                     'B'..'D': 
  1231.                         country := '1,41';{Iran}
  1232.                     'E', 'F': 
  1233.                         country := '1,43';{Ethiopia}
  1234.                     'G': 
  1235.                         country := '1,311';{Ghana}
  1236.                     'H': 
  1237.                         country := '1,312';{Malta}
  1238.                     'J', 'I': 
  1239.                         country := '1,313';{Zambia}
  1240.                     'K': 
  1241.                         country := '1,314';{Kuwait}
  1242.                     'L': 
  1243.                         country := '1,315';{Sierra Leone}
  1244.                     'M': 
  1245.                         case call[3] of
  1246.                             '2', '4': 
  1247.                                 country := '1,316';{West Malaysia}
  1248.                             '6', '8': 
  1249.                                 country := '1,317';{East Malaysia}
  1250.                             otherwise
  1251.  
  1252.                                 country := '0,Unknown 9M call';
  1253.                         end; { 9M }
  1254.                     'N': 
  1255.                         country := '1,318';{Nepal}
  1256.                     'Q'..'T': 
  1257.                         country := '1,319';{Zaire}
  1258.                     'U': 
  1259.                         country := '1,320';{Burundi}
  1260.                     'V': 
  1261.                         country := '1,321';{Singapore}
  1262.                     'X': 
  1263.                         country := '1,322';{Rwanda}
  1264.                     'Y', 'Z': 
  1265.                         country := '1,323';{Trinidad & Tobago}
  1266.                     otherwise
  1267.                         country := '0,Unknown 9 call';
  1268.                 end; { 9 }
  1269.  
  1270.  
  1271.             otherwise
  1272.                 country := '0,Unknown call';
  1273.         end; { call[1] }
  1274.         str := country;
  1275.         paramPtr^.returnValue := PasToZero(paramPtr, str);
  1276.     end; { main }
  1277. end. { implementation }